00100		SUBROUTINE PLOT(I,J,K)
00200		DATA M/3000/
00300		DIMENSION N(3,1000),NN(3000)
00350		EQUIVALENCE(N,NN)
00400		IF(K.EQ.99)GO TO 1
00500		L=L+1
00600		N(1,L)=I
00700		N(2,L)=J
00800		N(3,L)=K
00900	3	IF(L.LT.1000)RETURN
01000	2	L=0
01100		WRITE(1)M,N
01200		RETURN
01300	1	M=L*3
01400		WRITE(1)M,(NN(K),K=1,M)
01500		CALL EXIT
01600		END